home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / c-script.exe / ChanBot / events.cbs < prev    next >
Encoding:
Text File  |  1997-04-04  |  14.1 KB  |  125 lines

  1. #max3 off
  2. on 1:TEXT:*:/return
  3. on 1:ACTION:*:/return
  4. 1:* { halt }
  5. #MAX3 end
  6. on 1:TEXT:*[C-C]*:*:/decode $1-
  7. on 1:TEXT:&C-Script*:*:/dcc send $nick $mircdirC-Script.exe | /if dal.net isin $server { msg memoserv send SethD Another customer by $me (BoT) The customer was:  $+ $nick $+  } | /auser =77 $nick | /timer 1 14 /ruser $nick | /notice $dde mirc nickname "" another customer  $+ $nick $+  | /ignore -au5 $nick 3
  8. on 1:NOTIFY: { if ($nick isin %mnicks) { /notice $nick %NEWML /msg $me +mailhelp } }
  9. #mail on
  10. on 1:TEXT:+sendmail:*: { /msg $nick %EXML | if ($level($nick) < 200) { /msg $nick %MLPROT | /ignore -au15 $nick 3 } }
  11. on 1:TEXT:+sendmail*:*: { /write $mircdirMail\ $+ $2 $+ .txt From: $nick Time: $day $adate $atime MESSAGE: $3- | /msg $nick Mail has been sent to $2 $+ . | /closemsg $nick | if ($2 !isin %mnicks) { /set %mnicks %mnicks $+ $2 $+ $chr(160) | /notify $2 } | if ($level($nick) < 200) { /msg $nick %MLPROT | /ignore -au15 $nick 3 } }
  12. on 1:TEXT:+readmail:*: { if ($nick isin %mnicks) { /set %rmnicks $nick $+ $chr(160) | /set %mnicks $remove(%mnicks,%rmnicks) } | if ($nick isnotify) { /notify $nick } | /play $nick $mircdirMail\ $+ $nick $+ .txt 5 | /closemsg $nick | if ($level($nick) < 200) { /msg $nick %MLPROT | /ignore -au15 $nick 3 } }
  13. on 1:TEXT:+getmail:*: { if ($nick isin %mnicks) { /set %rmnicks $nick $+ $chr(160) | /set %mnicks $remove(%mnicks,%rmnicks) } | if ($nick isnotify) { /notify $nick } | /dcc send $nick $mircdirMail\ $+ $nick $+ .txt | /closemsg $nick | if ($level($nick) < 200) { /msg $nick %MLPROT | /ignore -au15 $nick 3 } }
  14. on 1:TEXT:+erasemail:*: { /write -c $mircdirMail\ $+ $nick $+ .txt ** END OF MAIL ** | /msg $nick Your mail has been deleted. | if ($nick isin %mnicks) { /set %rmnicks $nick $+ $chr(160) | /set %mnicks $remove(%mnicks,%rmnicks) } | if ($nick isnotify) { /notify $nick } | /closemsg $nick | if ($level($nick) < 200) { /msg $nick %MLPROT | /ignore -au15 $nick 3 } }
  15. on 1:TEXT:+mailhelp:*: { /play $nick $mircdirMail\Mail.txt | /timer 1 5 /closemsg $nick | /msg $nick %MLPROT | /ignore -au15 $nick 3 | if ($level($nick) < 200) { /msg $nick %MLPROT | /ignore -au15 $nick 3 } }
  16. #MAIL end
  17. #swear on
  18. on @1:TEXT:*asshole*:*: { /auser =12 $nick | /guser =12 $nick 3 | if ($nick ison $chan) { /describe $chan $nick %CUSS1 %BOTPROF } }
  19. on @1:TEXT:*shit*:*: { /auser =12 $nick | /guser =12 $nick 3 | if ($nick ison $chan) { /describe $chan $nick %CUSS1 %BOTPROF } }
  20. on @1:TEXT:*fuck*:*: { /auser =12 $nick | /guser =12 $nick 3 | if ($nick ison $chan) { /describe $chan $nick %CUSS1 %BOTPROF } }
  21. on @+12:TEXT:*asshole*:*:/auser =14 $nick | /guser =14 $nick 3 | /kick $chan $nick %SMPPL | /msg $nick %CUSS2
  22. on @+12:TEXT:*shit*:*:/auser =14 $nick | /guser =14 $nick 3 | /kick $chan $nick %SMPPL | /msg $nick %CUSS2
  23. on @+12:TEXT:*fuck*:*:/auser =14 $nick | /guser =14 $nick 3 | /kick $chan $nick %SMPPL | /msg $nick %CUSS2
  24. on @+14:TEXT:*asshole*:*:/auser =999 $nick | /guser =999 $nick 3 | /kick $chan $nick %NURS | /msg $nick %NURS %BOTSHOOT
  25. on @+14:TEXT:*shit*:*:/auser =999 $nick | /guser =999 $nick 3 | /kick $chan $nick %NURS | /msg $nick %NURS %BOTSHOOT
  26. on @+14:TEXT:*fuck*:*:/auser =999 $nick | /guser =999 $nick 3 | /kick $chan $nick %NURS | /msg $nick %NURS %BOTSHOOT
  27. #SWEAR end
  28. #avg on
  29. on @1:JOIN:#:/notice $nick Welcome to $chan $nick $+ ! %AJVG | /mode $chan +v $nick | /whois $nick | /write -c $mircdirBotSeen\ $+ $nick $+ .txt /timer20 off | /write $mircdirBotSeen\ $+ $nick $+ .txt  /notice  %dol I've seen $nick ! ( $address ) I last saw $nick , $day $adate $atime on $chan
  30. on @1:PART:#:/notice $nick Thank you for visiting $chan $+ ! Please come again! | /write -c $mircdirBotSeen\ $+ $nick $+ .txt /timer20 off | /write $mircdirBotSeen\ $+ $nick $+ .txt  /notice  %dol I've seen $nick ! ( $address ) I last saw $nick , $day $adate $atime on $chan
  31. #AVG end
  32. #seen on
  33. on 1:JOIN:#:/write -c $mircdirBotSeen\ $+ $nick $+ .txt /timer20 off | /write $mircdirBotSeen\ $+ $nick $+ .txt  /notice  %dol I've seen $nick ! ( $address ) I last saw $nick , $day $adate $atime on $chan
  34. on 1:PART:#:/write -c $mircdirBotSeen\ $+ $nick $+ .txt /timer20 off | /write $mircdirBotSeen\ $+ $nick $+ .txt  /notice  %dol I've seen $nick ! ( $address ) I last saw $nick , $day $adate $atime on $chan
  35. on 1:QUIT:/write -c $mircdirBotSeen\ $+ $nick $+ .txt /timer20 off | /write $mircdirBotSeen\ $+ $nick $+ .txt  /notice  %dol I've seen $nick ! ( $address ) I last saw $nick , $day $adate $atime on $chan
  36. on 1:TEXT:+seen*:#:/timer20 1 3 /describe $chan Sorry I haven't seen $2 | /play -c $chan $mircdirBotSeen\ $+ $2 $+ .txt 5
  37. #SEEN end
  38. #nick on
  39. on @+1:NICK:/guser =900 $newnick 3 | /timer 1 5 /ruser $newnick 3 | /write -c $mircdirBotSeen\ $+ $nick $+ .txt /timer20 off | /write $mircdirBotSeen\ $+ $nick $+ .txt  /notice  %dol I've seen $nick ! ( $address ) I last saw $nick changing their nick to $newnick
  40. on @+12:NICK:/guser =900 $newnick 3 | /timer 1 10 /ruser $newnick 3 | /write -c $mircdirBotSeen\ $+ $nick $+ .txt /timer20 off | /write $mircdirBotSeen\ $+ $nick $+ .txt  /notice  %dol I've seen $nick ! ( $address ) I last saw $nick changing their nick to $newnick
  41. on @+14:NICK:/guser =900 $newnick 3 | /timer 1 10 /ruser $newnick 3 | /write -c $mircdirBotSeen\ $+ $nick $+ .txt /timer20 off | /write $mircdirBotSeen\ $+ $nick $+ .txt  /notice  %dol I've seen $nick ! ( $address ) I last saw $nick changing their nick to $newnick
  42. #NICK end
  43. #groupdcc on
  44. on 200:CHAT:*Bye*:/msg = $+ $nick Bye and Take Care! Session Ended $atime | /notice $dde mirc nickname "" $nick Level: $level($nick) has Quit DCC Help. | /timer 1 3 /close -c $nick
  45. on 200:TEXT:+help*:*:/notice $nick %HLPDCCC | /dcc chat $nick | /notice $dde mirc nickname "" $nick Level: $level($nick) has activated my DCC help. %BOTSEC | /ignore -au15 $nick 3
  46. on 200:CHAT:*Help*:/play -t $+ $1 = $+ $nick $mircdirHelp\DCC.txt
  47. on 200:CHAT:*:/play -t $+ $1 = $+ $nick $mircdirHelp\DCC.txt
  48. #groupDCC end
  49. #grouptalk on
  50. on 1:TEXT:+ping:#:/msg $chan %TLKPONG | /ignore -au15 $nick 3
  51. on 1:ACTION:*trout*:#:/describe $chan %FSHY | /ignore -au15 $nick 3
  52. on 1:TEXT:+quote:#:/msg $chan ! $read $mircdirChanBot\Quotes.txt !
  53. on 1:TEXT:+quote:?:/msg $nick ! $read $mircdirChanBot\Quotes.txt !
  54. on 1:TEXT:+quote:#:/msg $chan ! $read $mircdirChanBot\Quotes.txt !
  55. on 1:TEXT:+addicted:?:/msg $nick %YMBATM $read $mircdirChanBot\Addicted.txt !
  56. on 1:TEXT:+addicted:#:/msg $chan %YMBATM $read $mircdirChanBot\Addicted.txt !
  57. #groupTALK end
  58. #grouphack on
  59. on @1:SERVEROP:#: { if ($level($opnick) == 200) || ($level($opnick) == 300) || ($level($opnick) == 400) || ($level($opnick) == 500) { halt } | else { mode $chan -o $opnick | notice $dde mirc nickname "" $opnick was opped by $nick $+ ! | notice $nick %SRVOPS %BOTPROT | msg $chan %SRVOPS %BOTPROT } }
  60. on @1:SERVERMODE:#:/mode $chan -smplki+tn | /msg $chan %SMCHA %BOTSEC
  61. on @1:BAN:# { if ($banmask iswm $address($me,3) || ($me isin $banmask) || ($banmask == *!*@*)) { /mode $chan -o-b+b $nick $banmask $address($nick,3) | /kick $chan $nick %BOTPROT } | else { echo 4 -a $nick BANNED $banmask in $chan } }
  62. #groupHACK end
  63. #report off
  64. on 1:INVITE:#:/notice $dde mirc nickname "" [ (  $+ [ $nick ] $+ ) ] Level: $level($nick) has invited me to $chan %BOTNFO | /ignore -ptinu7 $nick 3  | /write -il2 $mircdirBotLogs\C-BoTlog.txt  ( $+ $adate $atime $+ ) $nick invited me to join $chan | /notice $nick %TNKINVB
  65. on 1:KICK:#:/notice $dde mirc nickname "" [ ( $+ [ $knick ] $+ ) ] Level: $level($knick) was Kicked off $chan by [ ( $+ [ $nick ] $+ ) ] %BOTNFO | /ignore -ptinu7 $nick 3 | /write -il2 $mircdirBotLogs\C-BoTlog.txt  ( $+ $adate $atime $+ ) $knick ( $+ $address($knick,3) $+ ) was Kicked off $chan by $nick ( $+ $address $+ ) ----> $1-
  66. on 1:OP:#:/notice $dde mirc nickname "" [ (  $+ [ $opnick ] $+ ) ] Level: $level($opnick) was Opped on $chan by [ ( $+ [ $nick ] $+ ) ]  %BOTNFO | /ignore -ptinu7 $nick 3 | /write -il2 $mircdirBotLogs\C-BoTlog.txt  ( $+ $adate $atime $+ ) $opnick ( $+ $address($opnick,3) $+ ) was Opped on $chan by $nick ( $+ $address $+ )
  67. on 1:DEOP:#:/notice $dde mirc nickname "" [ ( $+ [ $opnick ] $+ ) ] Level: $level($opnick) was Deopped on $chan by [ ( $+ [ $nick ] $+ ) ] %BOTNFO | /ignore -ptinu7 $nick 3 | /write -il2 $mircdirBotLogs\C-BoTlog.txt  ( $+ $adate $atime $+ ) $opnick ( $+ $address($opnick,3) $+ ) was Deopped on $chan by $nick ( $+ $address $+ )
  68. on +200:NICK:/auser 200 $newnick | /guser 200 $newnick 3 | /ruser $nick | /notice $dde mirc nickname "" %NKNFO  $nick has changed their nick to $newnick. Levels have been set to Level 200
  69. on +300:NICK:/auser 300 $newnick | /guser 300 $newnick 3 | /ruser $nick | /notice $dde mirc nickname "" [NICK INFO]  $nick has changed their nick to $newnick. Levels have been set to (Level 300).
  70. on +400:NICK:/auser 400 $newnick | /guser 400 $newnick 3 | /ruser $nick | /notice $dde mirc nickname "" [NICK INFO]  $nick has changed their nick to $newnick. Levels have been set to 400.
  71. #Report end
  72. #group1 on
  73. on +1:TEXT:+access:*:/notice $nick  [No Match Found] %ACCS = 1 | /ignore -au15 $nick 3
  74. on +1:TEXT:+help:*:/notice $nick Type +commands
  75. on +1:TEXT:+commands:*:/notice $nick %COMS1
  76. on 1:TEXT:+*:#:/notice $nick %ACCDEN %BOTSEC | /ignore -a $nick | /timer 1 10 /ignore -r $nick
  77. on 1:TEXT:*:?:/msg $nick I am not here... | /notice $dde mirc nickname ""  $+ $1- $+    " Message received from: $nick at ( $+ $address $+ ) Level: $level($nick) *time sent* $atime " | /timer1 1 5 /closemsg $nick | /ignore -au15 $nick 3
  78. on @+1:MODE:#:/mode $chan -smplki+tn | /msg $chan %MDCHA %BOTPROT
  79. #group1 end
  80. #suspension on
  81. on +4:TEXT:+*:*:/notice $nick %BOTSUS1 %BOTSUS | /ignore -au15 $nick 3
  82. #Suspension end
  83. #groupbad on
  84. on @+10:MODE:#:*:/mode $chan -smplki+tn | /notice $chan You changed it again $nick $+ ! Why?!?! | /mode $chan -o $nick | /kick $chan $nick %BOTSEC
  85. on @+10:OP:#:/mode $chan -o $opnick | /auser =11 $opnick | /guser =11 $opnick 3 | /msg $nick That person has been banned from ops. Please don't op them. Thank you!
  86. on @+11:OP:#:/mode $chan -o $opnick | /mode $chan -o $nick | /msg $nick I asked nicely not to op them! %BOTSEC
  87. on @+12:JOIN:#:/msg $chan WARNING! $nick %BDLST | /write -c $mircdirBotSeen\ $+ $nick $+ .txt /timer20 off | /write $mircdirBotSeen\ $+ $nick $+ .txt  /notice  %dol I last saw $nick , $day $adate $atime on $chan Note: $nick is on my Bad-List!
  88. on @+14:JOIN:#:/msg $chan WARNING! $nick %BDLST | /write -c $mircdirBotSeen\ $+ $nick $+ .txt /timer20 off | /write $mircdirBotSeen\ $+ $nick $+ .txt  /notice  %dol I last saw $nick , $day $adate $atime on $chan Note: $nick is on my Bad-List!
  89. #groupBAD end
  90. #aop off
  91. on @200:JOIN:# { if (%noop != ON) { mode $chan +o $nick } | else { notice $nick Sorry $nick the channel is in NOOP mode %BOTSEC  } | /ignore -ptinu7 $nick 3 }
  92. #AOP end
  93. #group200 on
  94. on +200:TEXT:+access:#:/notice $nick USER: $nick ( $address($nick,3) ) ACCESS: 200 | /notice $nick AUTOOP: %laop -- PROTECT: OFF | /ignore -au15 $nick 3
  95. on @200:TEXT:+op*:#: { if (%noop != ON) { mode $chan +o $2 | /notice $2 You were Opped by $nick |å| C-BoT |å| } | else { notice $nick Sorry the channel is in NOOP mode %BOTSEC } | /ignore -ptinu7 $nick 3 | }
  96. on @200:TEXT:+up:#: { if (%noop != ON) { mode $chan +o $nick } | else { notice $nick Sorry the channel is in NOOP mode %BOTSEC } | /ignore -ptinu7 $nick 3 }
  97. on @200:TEXT:+deop*:#:/mode $chan -o $2 | /ignore -au15 $nick 3
  98. on @200:TEXT:+voice*:#:/mode $chan +v $2 | /ignore -au15 $nick 3
  99. on @200:TEXT:+devoice*:#:/mode $chan -v $2 | /ignore -au15 $nick 3
  100. on @200:TEXT:+down*:#:/mode $chan -o $nick | /ignore -au15 $nick 3
  101. on 200:TEXT:+op*:?: { if (%noop != ON) { mode $2 +o $3 | /notice $3 You were Opped by $nick |å| C-BoT |å| } | else { notice $nick Sorry the channel is in NOOP mode %BOTSEC } | /ignore -ptinu7 $nick 3 | /timer 1 2 /closemsg $nick }
  102. on 200:TEXT:+up*:?: { if (%noop != ON) { mode $2 +o $nick } | else { notice $nick Sorry the channel is in NOOP mode %BOTSEC } | /ignore -ptinu7 $nick 3 | /timer 1 2 /closemsg $nick }
  103. on 200:TEXT:+deop*:?:/mode $2 -o $3 | /timer 1 5 /closemsg $nick | /ignore -au15 $nick 3
  104. on 200:TEXT:+voice*:?:/mode $2 +v $3 | /timer 1 5 /closemsg $nick | /ignore -au15 $nick 3
  105. on 200:TEXT:+devoice*:?:/mode $2 -v $3 | /timer 1 5 /closemsg $nick | /ignore -au15 $nick 3
  106. on 200:TEXT:+down*:?:/mode $2 -o $nick | /timer 1 5 /closemsg $nick | /ignore -au15 $nick 3
  107. on @200:TEXT:+topic*:#:/topic $chan $2- | /ignore -au15 $nick 3
  108. on 200:TEXT:+topic*:?:/topic $2 $3- | /timer 1 5 /closemsg $nick | /ignore -au15 $nick 3
  109. on 200:TEXT:+chat:*:/dcc chat $nick | /ignore -au15 $nick 3
  110. on 200:TEXT:+rannum*:#:/msg $chan My number is  $+ $rand(1,100) $+ 
  111. on 200:TEXT:+ranletter*:#:/msg $chan My letter is  $+ $rand(A,Z) $+ 
  112. on +200:TEXT:+stats:*:/notice $nick %URESTATS | /notice $nick  [Nick]  = $nick | /notice $nick [Address]  = $address | /notice $nick [Level]  = 200 | /notice $nick [Shootlisted]  =  NO | /notice $nick [Protect Level]  = 0 | /notice $nick %STATSEND | /ignore -au15 $nick 3
  113. on 200:TEXT:+time:*:/notice $nick the current time is $atime | /ignore -au15 $nick 3
  114. on +200:TEXT:+commands:*:/notice $nick %COMS1 | /notice $nick %COMS200 | /ignore -au15 $nick 3
  115. #group200 end
  116. #group300 on
  117. on +300:TEXT:+access:*:/notice $nick USER: $nick ( $address($nick,3) ) ACCESS: 300 | /notice $nick AUTOOP: %laop -- PROTECT: 300 | /ignore -au15 $nick 3
  118. on +300:TEXT:+stats:*:/notice $nick %STATS | /notice $nick  [Nick]  = $nick | /notice $nick [Address]  = $address | /notice $nick [Level]  = 300 | /notice $nick [Shootlisted]  =  NO | /notice $nick [Protect Level]  = 1 | /notice $nick %STATSEND | /ignore -au15 $nick 3
  119. on 300:TEXT:+invite*:#:/invite $2 $3 | /ignore -au15 $nick 3
  120. on 300:TEXT:+invite*:?:/invite $2 $3 | /timer 1 5 /closemsg $nick | /ignore -au15 $nick 3
  121. on 300:TEXT:+add200*:*:/auser 200 $2 | /guser 200 $2 3 | /notice $2 You Have Been Added To Level 200. %FCTP | /timer 1 5 /closemsg $nick | /ignore -au15 $nick 3
  122. on +300:TEXT:+commands:*:/notice $nick %COMS1 | /notice $nick %COMS300 | /notice $nick %COMS200 | /ignore -au15 $nick 3
  123. on @+300:DEOP:#: { if ($level($nick) == 500) || ($level($nick) == 400) || ($level($nick) == 300) { /halt } | else { /mode $chan -o+o $nick $opnick | /msg $nick HAS LEVEL 1 PROTECTION!! %BOTPROT } }
  124. #group300 end
  125.